PC-X 1997 October/pcx14_9710.iso/swag/math.swg/0101_More on PERCENT..pas

Pascal/Delphi Source File | 1995-11-22 | 400 b | 20 lines

function percent(p,t:longint):longint;
begin
  percent:=trunc(100*(p/t));
end;

There you go!  :)  p is the partial value, t is the total value, as in...

percent(50,100) = 50%

If you want it to return a string instead of a longint, do it like this:

function percent(p,t:longint):string;
var s:string; l:longint;
begin
  l:=trunc(100*(p/t));
  str(l,s);
  percent:=s+'%';
end;